home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
pascal
/
pstui100.zip
/
PTUIMDEF.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1993-02-09
|
2KB
|
50 lines
{
╔══════════════════╗
║ Mouse Function ║
║ Defines ║
║ Rev. 1.00 ║
╚══════════════════╝
}
Unit PTUIMDef;
{$F+} {$O-} {$A+} {$G+}
{$V-} {$B-} {$X-} {$N+} {$E+}
{$I FINAL.PAS}
{$IFDEF FINAL}
{$I-} {$R-}
{$D-} {$L-} {$S-}
{$ENDIF}
Interface
Type
MouseProc_Init = Procedure (Installed:Boolean);
MouseProc_Show = Procedure;
MouseProc_Hide = Procedure;
MouseProc_SetSpeed = Procedure (Mousems:Byte);
MouseProc_SetXY = Procedure (X,Y:Word);
MouseProc_SetBounds = Procedure (X1,Y1,X2,Y2:Word);
MouseProc_GetPresses = Procedure (Var X,Y:Word;Var Button:Byte;
Var Held:Boolean;Var NumTimes:Word);
MouseProc_GetXY = Procedure (Var X,Y:Word);
MouseProc_GetStatus = Procedure (Var X,Y:Word;
Var Left,Right,Middle:Boolean);
MouseProc_GetClick = Procedure (Var X1, Y1, X2, Y2:Word;
Var MouseButton:Byte;
Var Held,Doubled:Boolean);
Var
ComputerSpeed :LongInt;
Active :Boolean;
Implementation
End.
{ Copyright 1993, Michael Gallias }